object restoremsg: Trestoremsg Left = 379 Top = 350 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Milo - przywracanie wiadomo'#347'ci' ClientHeight = 105 ClientWidth = 401 Color = clBtnFace Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 385 Height = 57 Caption = 'Status' TabOrder = 0 object Label1: TLabel Left = 8 Top = 20 Width = 152 Height = 13 Caption = 'Trwa przywracanie wiadomo'#347'ci:' end object msgname: TLabel Left = 8 Top = 36 Width = 369 Height = 13 AutoSize = False Caption = '###' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object cacnel: TButton Left = 317 Top = 72 Width = 75 Height = 25 Caption = '&Anuluj' TabOrder = 1 OnClick = cacnelClick end object smtp: TIdSMTP SASLMechanisms = <> Left = 8 Top = 72 end object restoretimer: TTimer Interval = 100 OnTimer = restoretimerTimer Left = 40 Top = 72 end end